#lang racket
(require "monde.rkt")
(require "image.rkt")
(require "note.rkt")
(require "animation.rkt")

;Batterie de tests de la classe monde

"TEST 2 - Constructeur normal"
(define la-piano-noire (new note%))
(define la-piano-blanche (new note% (type "blanche")))
(define partition1 (list la-piano-noire la-piano-noire la-piano-blanche))
(define balle1
  (new Balle% (posX 50) (posY 50) (couleur "blue") (rayon 20)))
(define balle2
  (new Balle% (posX 80) (posY 20) (couleur "red") (rayon 10)))
(define monde2
  (new monde%
       (partition partition1)
       (temps-attente 2)
       (images (list balle1 balle2))))
(send monde2 afficher)



(printf "\n\n")
"TEST 3 - lire-partition()"
(send monde2 lire-partition)
(send monde2 afficher)

(printf "\n\n")
(send monde2 lire-partition)
(send monde2 afficher)

(printf "\n\n")
(send monde2 lire-partition)
(send monde2 afficher)

(printf "\n\n")
(send monde2 lire-partition)
(send monde2 afficher)

(printf "\n\n")
(send monde2 lire-partition)
(send monde2 afficher)

(printf "\n\n")
(send monde2 lire-partition)
(send monde2 afficher)

;TODO : S'assurer que les animations sont initialisées avec la bone durée